크로의 활용 



매크로 녹화를 시작하고 B 열에 영어단어를 적고나서 녹화중지를 합니다. 

명령단추에 단어 매크로를 지정합니다. 
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단어와 마찬가지로 똑같이 설정합니 다. 

명령단추 이름변경은 매크로 지정과 별개입니다. 
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2 . 사용자 정의함수 



사용자 정의함수를 사용하기 위해서는 함수를 직접 만들어아 합니 다. 
함수에 대한 설정은 도구 탭의 스크립트 편집에서 합니다 




목표는 제품이 일정수량 이상이면 할인이 되는것이고, 

이하이면 정가가 되는것입니다. 


판매#액 할인물 함 PI 호금맥 
1210000 。.1『 495001 

630000 0.3 ' 

400000 0.15 


제품 

가격 

키보드 

55000 

마우스 

30000 

스피커 

25000 



헤드셌 

32000 
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992000 
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여기서 가장 중요한것은 IF 입니다. 수량>=20, 즉 제품 수량이 20이상이면 정가에 
서 할인이 되는것이고, 그게 아니라면(타 _ SE ) 정가로 나읍니다. 


1 | Function 否인효금역 g (가격 , 수량 , 할인울 ) 

2 _ 

3 If -Sf > 유 20 Then 

4 할인코#역 - 가격 - (가격 ^ 苦언을 ) 

5 Else 

6 할인효금액 = 가격 

7 End If 

8 




정확하게 함수를 설정했다면 다음과 같은 결과가 나읍니 다. 수량이 20이하인 제품 

은 그대로, 이상인 제품은 할인율이 적용되었습니다. 
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프로시 저 


목표는 구매를 했을때 배송비가 무료인지 유료인지 정해저서 

표 형식으로 나타나는것입 니다. 


A 

占 

C 

U E 

F 

在 

H 

| 

























빠 해실% 





구떠자 

포명 

가격 

수량 곧벽 
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첫번째로 물품 구매 단추를 늘렀을때 창이 뜨게하기 위해서 

모듈이 아닌 시트에 코드를 적습니다. 


1 private Sub t 풍그매실행 Jllick 

2 율 # = 매요=서 • Show 

3 End Sub 

4 


i() 






두번째, 배송비가 유료인지 무료인지 클릭으로 결정할수있게 합니다 


2 

3 Private Sub Chk 배 승번 _Click () 

4 

5 If Chk 배송비 유 = True Then 

6 Cmd 배玄비. Caption 0 = "배 ea £ 료" 法 

7 Else 

8 Cmd 배승비. Caption 6 = "배승비유료" s 

9 End If 

L0 

LI End Sub 

L2 



구매를 클릭했을때 구매자를 적고 제품을 정하며 
자동으로 가격이 정해지게 합니 다. 


L2 Private Sub Cmd o & _Click () 

L3 

L4 행 = [a4].Rov» + [a4].CurrentRegion.Rows.Count 
15 

L6 Cells (행 , 1) = Txt 구매자 
L7 Cells (행 , 2) = Cmb 풍 @ 

L8 


19 Select Case Cmb 풍安 



20 

Case ” 자전거 " 



21 

Cells (행 , 

3) 

= 200000 

U 

Case ••컴퓨터" 



23 

Cells (행 , 

3) 

= 8 公 0 公分 0 

24 

Case •，프린터” 



25 

Cells (행 , 

3) 

= 150000 

26 

Case _£ 至 • 기 • 



27 

Cells (理 , 

3) 

» 5 公公公分公 


28 End Select 








종료 단추와 수량을 결정합니 다. 


5 

6 Private Sub Cmd^^_Click () 

7 Unload Me 

8 

9 End Sub 

0 

1 Private Sub Spin 수？ ^Change () 

2 T ) Ct 대 = Spin 수량 一 

3 

A 



창에 적은 수량만큼 표에 나타나게 됩 니 다. 


，I 

0 Cells (행 , 4) ; Val(Txt 고량 ) 

1 

2 

3 If Txt-Sf.Value >* 16 Then 

4 Cells (영 , 5) « Format(Cells(« , 3) * Cells (정 , 4) • 0.9, m \& 19 ) 

5 

6 Else 

7 Cells(« , 5) ; Format(Cells(* , 3) * Cells(S , 4), - \0 ,# ) 

8 

9 End If 

0 

1 Cells(?f # 6) = C ， d 하 s 선 .Caption 


표와 구매 단추 옆의 물품명부터 가격까지 지정합니다. 


7 Private Sub UserForfr_Initialize() 
5 Cmbs? .RowSource = ” 〕 5:K8” 


) End Sub 




정상적으로 되었다면 물품구매를하고 입력을 누르게되면 표에 추가가 될것입니다. 




C 

C- E 

Z 

G H 

I 



1 









S 









3 





플품그 매실 ! 






느 구력 & 

품명 

7^ 

수랑 금덕 

배송비 


품명 

가격 

5 







S ■三 거 

200ffXJ 


6 







컴퓨터 

BOG.CKKi 


T 







프련터 

1 5HOOO 


o 





J 


전화기 

sm,0J3 


C| 





1 


1 










































구매자, 수량을 정하고 배송 체크합니 다. 






























































정상으로 표에 추가가되 며 배송체크를 하지않으면 
유료로 바뀌는것을 볼 수 있습니 다. 



































































저번 광광요금관리에서 창을 여는법과 입력 종료까지 알게되었고 중요한것은 창에 

입력 한것이 표에 추가되게하는 방법이었습니다. 



